home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 4. Demo3 < prev    next >
Lisp/Scheme  |  1998-10-26  |  2KB  |  89 lines
  1. ; demo3 - neural examples
  2.  
  3. (setq tonals 
  4.       (activate-tonality (chromatic c 4) (major c 4) (c maj maj7 2 4)
  5.                          (b& min 7 1 3) (aeolian f 3 )))
  6.  
  7. (setq rhy1 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 
  8.              -1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16)
  9. )
  10.  
  11. (setq rhy2 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 
  12.              -1/16 1/8 1/16 1/16 1/8 1/16)
  13. )
  14.  
  15. (setq mel1 '(a b c d))
  16. (setq mel2 '(a b c d ac bd ad cb))
  17. (setq mel3 '((a b c d))) 
  18.  
  19. (gen-hopalong-symbol xmel (a d) ymel (a d) 100 200 300 0.45 16 0)
  20.  
  21. ; good example because it creates 2 outputs
  22.  
  23. (def-neuron zmel
  24.   (and (in 1 'c)
  25.        (in 2 'c))
  26.   '=
  27.   (and (in 1 'b)
  28.        (in 2 'b))
  29.   '=
  30.   (and (in 1 'c)
  31.        (in 1 'c -1))
  32.   (in 1 +4)
  33.   (or (in 1 'a)
  34.       (in 2' a))
  35.   'e
  36.   (not (in 1 '(ae)))
  37.   'fg
  38.   (otherwise (in 1 0)) ; returns the symbols in xmel  
  39. )
  40.  
  41. (setq mel4 (run-neuron 'zmel
  42.                        xmel ymel))
  43. #|
  44. (def-neuron zmel
  45.   (and (in 1 '(c c))
  46.        (in 2 '(c b)))
  47.   (symbol-trim 8 (find-change ymel))
  48.   (and (in 1 'b)
  49.        (in 2 'b))
  50.   (symbol-trim 8 (symbol-inversion 'b xmel))
  51.   (otherwise (in 1 0))    
  52. )
  53.  
  54. (setq mel4 (run-neuron 'zmel
  55.                        xmel ymel))
  56. |#
  57.  
  58.  
  59. (def-neuron sym-to-len1
  60.   (in 1 'a) '(1/8)  
  61.   (in 1 'c) '(1/4) 
  62.   (otherwise '1/16)
  63. )
  64.  
  65. (def-neuron sym-to-len2
  66.   (in 1 'a) '(1/8 1/16 1/16)
  67.   (in 1 'c) '(1/4 -1/16 1/16 1/8)
  68.   (otherwise '1/8)
  69. )
  70.  
  71. (setq rhy3 (run-neuron 'sym-to-len2 mel1))
  72.  
  73. ; simplest expression of Neural Expert
  74.  
  75. (def-symbol
  76.   solo  mel1
  77. )
  78.  
  79. (def-length
  80.   solo rhy3
  81. )
  82.  
  83. (compile-song-p "ccl;output:" 1/4 "demo3"
  84. ;                 !---!---!---!---
  85. changes tonals   "    .   . . .   " 
  86. solo    changes  "----------------"
  87. )
  88.  
  89.